gusucode.com > 智睿学校网站管理系统 V2.20 > 智睿学校网站管理系统 V2.20\code\UserLost.asp
<!--#include file="Include/conn.asp"-->
<!--#include file="Include/Fun_SqlIn.Asp"-->
<!--#include file="Include/Md5.asp" -->
<html xmlns="http://www.w3.org/1999/xhtml" >
<head>
<meta http-equiv="Content-Type" content="text/html; charset=GB2312" />
<meta http-equiv="Content-Language" content="zh-CN" />
<title>会员中心 - <%=SiteTitle%></title>
<meta name="keywords" content="<%=Sitekeywords%>" />
<meta name="description" content="<%=Sitedescription%>" />
<link href="images/style.css" rel="stylesheet" type="text/css" />
</head>
<body>
<%head()%>
<%
dim Step,rsTemp
Step=request.QueryString("Step")
%>
<table width="950" border="0" align="center" cellpadding="0" cellspacing="0" class="main_class">
<tr>
<td width="240" valign="top" class="leftCenter" >
<!--#include file="Include/login.asp"-->
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td class="Ma_left">关于我们</td>
</tr>
<tr>
<td align="left"><div style="margin-left:10px;"><% =WebMenu()%></div></td>
</tr>
</table>
</td>
<td width="5"></td>
<td valign="top"class="viewright">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="30" height="30" align="center" > </td>
<td class="Location"><a href="../index.asp">首页</a><img src="../Images/Arrow_02.gif" width="13" height="12" align="absmiddle">会员中心<img src="../Images/Arrow_02.gif" width="13" height="12" align="absmiddle">找回密码</td>
</tr>
<tr>
<td height="1" colspan="2" background="../Images/TitBG.gif"></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="30"> </td>
<td>
<%if Step="" then%>
<table width="604" border="0" cellspacing="0" cellpadding="0">
<form name="form" method="post" action="?Step=EnterNamUmail">
<tr>
<td width="240" align="right">
登 录 名： </td>
<td width="384"><input name="MemName" type="text" class="input1" id="MemName" size="30" maxlength="16"></td>
</tr>
<tr>
<td align="right">
电子邮箱： </td>
<td><input name="Umail" type="text" class="input1" id="Umail" size="30" maxlength="50"></td>
</tr>
<tr>
<td height="60" colspan="2" align="center"><input name="Next" type="submit" class="but1" value=" 下一步 "></td>
</tr>
</form>
</table>
<%
elseif Step="EnterNamUmail" then
set rsTemp = conn.execute("select * from zhi_rui_s_Users where MemName='"&request.form("MemName")&"' and Umail='"&request.form("Umail")&"'")
if rsTemp.bof and rsTemp.eof then
Call Alert ("登录名和电子邮箱不存在或不对应，请返回重新输入","-1")
response.end
end if
%>
<table width="604" border="0" cellspacing="0" cellpadding="0">
<form name="form" method="post" action="?Step=EnterAnswer&ID=<%=rsTemp("ID")%>">
<tr>
<td width="240" align="right">登 录 名：</td>
<td width="384"><%=rsTemp("MemName")%></td>
</tr>
<tr>
<td align="right">电子邮箱：</td>
<td><%=rsTemp("Umail")%></td>
</tr>
<tr>
<td align="right">密码提示问题：</td>
<td><%=rsTemp("Question")%></td>
</tr>
<tr>
<td align="right">密码提示答案：</td>
<td><input name="Answer" type="text" class="input1" size="30" maxlength="100"></td>
</tr>
<tr>
<td height="60" colspan="2" align="center"><input name="Next" type="submit" class="but1" value=" 下一步 "></td>
</tr>
</form>
</table>
<%
elseif Step="EnterAnswer" then
set rsTemp = server.CreateObject("adodb.recordset")
rsTemp.open "select * from zhi_rui_s_Users where ID="&request.QueryString("ID")&"",conn,1,3
if rsTemp.bof and rsTemp.eof then
Call Alert ("数据读取异常错误","-1")
response.end
end if
if rsTemp("Answer")<>MD5(trim(request("Answer"))) then
Call Alert ("输入的密码提示答案不正确","-1")
response.End()
end if
dim NewPassword
randomize timer
NewPassword=Int(899999*Rnd() +100000)
rsTemp("Password")=MD5(NewPassword)
rsTemp.update
rsTemp.close
set rsTemp=nothing
Response.Write("·你的新密码是<font color='red'>"&NewPassword&"</font>，请记住密码或登录修改成易记、安全的密码。")
response.end()
end if
%>
</td>
<td width="30"> </td>
</tr>
<tr>
<td height="30"></td>
<td></td>
<td></td>
</tr>
</table></td>
</tr>
</table>
<%Bottom()%>
</body>
</html>